home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / util / wb / SOVISGUI.lha / SONIVISGUI / XANIM_GUI1.1 < prev    next >
Text File  |  1995-05-11  |  947b  |  45 lines
  1. ;Xanim(BETA) GUI file viewer V1.1
  2. ;©1995 Ivan Smith
  3. ;For WorBench 3.X+ ONLY!
  4. ;Requestchoice and Request File must be in you C: dir.
  5.  
  6.  
  7. LAB start
  8. ;Audio Enabled or not?
  9. C:Requestchoice >env:Xoperat "Play With Audio or Not?""Choose A Method""audio""silent"
  10. ;Variables for Requestchoice
  11. IF $Xoperat eq "0"
  12. skip silent
  13. ENDIF
  14. IF $Xoperat eq "1"
  15. skip audio
  16. ENDIF
  17. IF $Xoperat eq "2"
  18. C:endcli
  19. ENDIF
  20.  
  21. ;Call the better vision player
  22. LAB silent
  23. ;Sets environment variables for X11
  24. setenv X11/askmode 1
  25. setenv X11/gfxcard 1
  26. ;Ask for a file name
  27. C:Requestfile >env:Xfilename TITLE "Which Vision File?"
  28. ;Set big enough stack for XANIM
  29. Stack 50000
  30. run Xamiga +f $Xfilename
  31. C:endcli
  32. ;Call the Audio version
  33. LAB audio
  34. ;Sets environment variables for X11
  35. setenv X11/askmode 1
  36. setenv X11/gfxcard 1
  37. ;Set big enough stack for XANIM
  38. Stack 50000
  39. ;Ask for a file name
  40. C:Requestfile >env:Xfilename TITLE "Which Vision File?"
  41. run C:Xanim +Ae +b +f $Xfilename
  42. C:endcli
  43.  
  44.  
  45. ;END